home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00158.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1.2 KB  |  50 lines
  1. on testnext
  2.   startTimer()
  3.   repeat with X = 1 to 10000
  4.     nextMember(member(random(1000), 2), 3)
  5.   end repeat
  6.   put "Next member took" && the timer
  7. end
  8.  
  9. on fixCastLibs newCastLib
  10.   beginRecording()
  11.   repeat with f = the frame to the lastFrame
  12.     go(f)
  13.     repeat with X = 1 to 20
  14.       set the castLibNum of sprite X to newCastLib
  15.       if the scriptNum of sprite X <> 0 then
  16.         temp = member(the scriptNum of sprite X)
  17.       end if
  18.     end repeat
  19.     updateFrame()
  20.   end repeat
  21.   endRecording()
  22. end
  23.  
  24. on fixsounds
  25.   repeat with X = 1 to the number of castMembers
  26.     thisMem = member(X, "inf_sounds")
  27.     if thisMem.type = #sound then
  28.       if thisMem.fileName <> EMPTY then
  29.         thisName = thisMem.fileName
  30.         findIt = offset(" Folder", thisName)
  31.         if findIt > 0 then
  32.           delete char findIt to findIt + length(" Folder") - 1 of thisName
  33.           put thisName
  34.           thisMem.fileName = thisName
  35.         end if
  36.       end if
  37.     end if
  38.   end repeat
  39.   put "Done"
  40. end
  41.  
  42. on fix dX, dY
  43.   repeat with i = 115 to 135
  44.     a = member(i, "flash2").regPoint
  45.     X = a.locH + dX
  46.     Y = a.locV + dY
  47.     member(i, "flash2").regPoint = point(X, Y)
  48.   end repeat
  49. end
  50.